home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / gr8art.bas < prev    next >
BASIC Source File  |  1995-04-22  |  596b  |  26 lines
  1. 1 REM BY:PAUL BOURMATNOV 
  2. 2 REM [72635,10] 
  3. 5 CLR :A=300 
  4. 10 GRAPHICS 24:SETCOLOR 2,0,0:COLOR 1 
  5. 15 REM ***BIG TRIANGLE*** 
  6. 20 FOR D=190 TO 1 STEP -2 
  7. 30 A=A-2:PLOT D,190:DRAWTO A,D 
  8. 40 NEXT D 
  9. 45 REM ***THE RAKE*** 
  10. 50 FOR A=319 TO 250 STEP -1 
  11. 60 D=D+1 
  12. 70 PLOT A,D:DRAWTO A,D+INT(50*RND(0)) 
  13. 80 NEXT A 
  14. 90 FOR A=181 TO 318:Z=Z+1 
  15. 100 PLOT A,Z:DRAWTO A,Z+INT(55*RND(0)) 
  16. 110 NEXT A 
  17. 115 REM ***THE SMALL TRIANGLE** 
  18. 120 C=100:FOR A=1 TO 100 STEP 2:C=C-2 
  19. 130 PLOT 50,1:DRAWTO A,C 
  20. 140 NEXT A 
  21. 145 REM ***THE SQUARE*** 
  22. 150 FOR A=150 TO 170 
  23. 160 PLOT A,20:DRAWTO A,50 
  24. 170 NEXT A 
  25. 180 GOTO 180 
  26.